10 X=RND(-TI):S=54272:V=53248
20 DIM T(25),R$(25),R1$(25),I$(8)
30 DIM Q$(2,8),Q1$(2,25)
40 DIM A$(2,8),A1$(2,25)
50 DIM D(125),LO(25),LC(25),L(25)
60 POKE53281,0:POKE53280,0:PRINT"[147]"
70 FORI=0TO24:POKES+I,0:NEXT
80 PRINT""TAB(14)"[155]PIRATE COVE":GOSUB1470:GOSUB1470
90 PRINT"A MINI-ADVENTURE FOR KIDS"
100 PRINTTAB(13)"[154][PLEASE WAIT]"
110 FORI=12288TO12607:READA:POKEI,A:NEXT
120 POKE2040,193
130 FORI=2041TO2043:POKEI,197:NEXT
140 FORI=V+40TOV+42:POKEI,2:NEXT
150 POKEV+39,10:POKEV+37,7:POKEV+38,5
160 POKEV+29,15:POKEV+23,1
170 POKEV+28,1:POKEV+27,14
180 POKEV+16,1:POKEV,0:POKEV+1,75
190 X=61:Y=81:POKEV+21,1
200 POKEV+2,X:POKEV+4,X+48:POKEV+6,X+96
210 FORI=12608TO12608+23:POKEI,255:NEXT
220 FORI=12608+24TO12608+63:POKEI,0:NEXT
230 FORI=1TO10:READR$(I):NEXT
240 FORI=1TO8:READQ$(1,I):READA$(1,I):NEXT
250 FORI=1TO8:READQ$(2,I):READA$(2,I):NEXT
260 FORI=1TO100:READD(I):NEXT
270 FORI=1TO25:READLO(I):NEXT
280 FORI=11TO25:R$(I)="HIGH SEAS":NEXT
290 FORI=1TO10:LC(I)=1:NEXT
300 FORI=11TO25:LC(I)=2:NEXT
310 F1=0:F2=0:Q=1
320 FORI=1TO8:I$(I)="":NEXT
330 FORI=1TO25:T(I)=0:NEXT
340 FORI=1TO25
350 RN=INT(RND(1)*25)+1
360 IFT(RN)=1THEN350
370 T(RN)=1:R1$(RN)=R$(I):L(RN)=LC(I)
380 NEXT
390 Z=1:FORI=1TO25
400 IFR1$(I)="TREASURE ISLAND"THEN480
410 IFR1$(I)="SEA MONSTER'S LAIR"THEN480
420 IFR1$(I)="HIGH SEAS"THEN480
430 Q1$(1,I)=Q$(1,Z)
440 Q1$(2,I)=Q$(2,Z)
450 A1$(1,I)=A$(1,Z)
460 A1$(2,I)=A$(2,Z)
470 Z=Z+1
480 NEXT
490 FORI=1TO25:IFR1$(I)="PIRATE COVE"THENR=I:RR=R
500 NEXT
510 TM=R:IFR1$(R)="TREASURE ISLAND"THEN1040
520 PRINT"[147][155]CURRENT LOCATION: ";
530 GOSUB1470
540 PRINTR1$(R)"[155]"
550 PRINT""
560 IFR1$(R)="HIGH SEAS"THEN960
570 IFR1$(R)="SEA MONSTER'S LAIR"THEN1270
580 POKE2040,193:POKEV+39,10:POKEV+37,7:POKEV+38,5
590 Y=81:K=1:D=5
600 POKEV+3,Y:POKEV+5,Y:POKEV+7,Y:POKEV+21,15
610 L=LEN(Q1$(1,R)):L2=LEN(Q1$(2,R))
620 PRINTTAB(14-L/2)"[155]"Q1$(1,R)
630 PRINTTAB(14-L2/2)Q1$(2,R)
640 PRINTTAB(10)"READ MAP"
650 PRINTTAB(10)"SAIL ON"
660 PRINTTAB(7)"LIST INVENTORY"
670 GOSUB1790
680 ONKGOTO860,860,1520,690,1910
690 PRINT"[147][155]SAIL:[158]";
700 Y=81:D=4:K=1
710 POKEV+3,Y:POKEV+21,3
720 PRINT"[155]"TAB(5)"NORTH"
730 PRINTTAB(5)"SOUTH"
740 PRINTTAB(5)"EAST"
750 PRINTTAB(5)"WEST"
760 GOSUB1790
770 IFK=1THENR=R-5
780 IFK=2THENR=R+5
790 IFK=3THENR=R+1
800 IFK=4THENR=R-1
810 IFD(((TM-1)*4)+K)=1THENPOKEV+21,1:GOTO510
820 POKE2040,196:POKEV+39,6:POKEV+37,1:POKEV+38,7:POKEV+21,1
830 PRINT"STORM AHEAD-GO ANOTHER WAY":PRINT"":GOSUB1890:GOSUB1470
840 GOSUB1860:R=TM:GOTO690
850 -----REM SEARCH-----
860 PRINT"[156]YOU FIND "A1$(K,R)
870 G$=A1$(K,R)
880 IFG$="A KEY"THENF1=1
890 IFG$="A CUTLASS"THENF2=1
900 IFLEFT$(G$,7)="NOTHING"THEN940
910 FORI=1TO8:IFG$=I$(I)THEN940
920 NEXT
930 I$(Q)=G$:Q=Q+1
940 PRINTTAB(7)"":GOSUB1860:GOTO510
950 -----REM HIGH SEAS-----
960 POKE2040,192:POKEV+39,6:POKEV+37,1:POKEV+38,2
970 K=1:D=2:Y=81
980 POKEV+3,Y:POKEV+5,Y:POKEV+21,7
990 PRINTTAB(7)"[155]READ MAP"
1000 PRINTTAB(7)"SAIL ON"
1010 GOSUB1790
1020 ONKGOTO1520,690
1030 -----REM TREASURE ISLAND-----
1040 POKE2040,193:POKEV+39,10:POKEV+37,7:POKEV+38,5
1050 PRINT"[147][155]YOU HAVE LANDED AT TREASURE ISLAND":GOSUB1890:GOSUB1470
1060 PRINT"AND FOUND THE TREASURE CHEST"
1070 PRINT"[153]PRESS ANY KEY TO SEE IF IT WILL OPEN."
1080 GETK$:IFK$=""THEN1080
1090 IF F1=1THEN1150
1100 PRINT"[147][155]YOU DON'T HAVE THE KEY"
1110 PRINT"YOU MUST CONTINUE ON YOUR JOURNEY,"
1120 PRINT"FIND THE KEY AND RETURN TO
1130 [153]"TREASURE ISLAND."
1140 [141]1860:[137]690
1150 [151]2040,194:[151]V[170]39,6:[151]V[170]37,1:[151]V[170]38,2:[141]1890
1160 [153]"LOADLISTYOUR KEY OPENS THE CHEST."
1170 [153]"YOU WIN"
1180 [153]"PRINTOTHER TREASURES:LIST"
1190 [129]I[178]1[164]8:[153]I$(I):[130]
1200 [153]"CONTPLAY AGAIN [Y/N]
1210 GETK$:IFK$=""THEN1210
1220 IFK$="Y"THENPOKEV+21,0:GOTO1250
1230 IFK$="N"THENSYS2048:END
1240 GOTO1210
1250 PRINTTAB(9)"[154][PLEASE WAIT A MOMENT]":GOTO310
1260 -----REM MONSTER-----
1270 POKEV+39,6:POKEV+37,2:POKEV+38,1:POKE2040,195
1280 Y=81:D=2:K=1:POKEV+3,Y:POKEV+5,Y:POKEV+21,7:GOSUB1890
1290 PRINTTAB(6)"SAIL AWAY"
1300 PRINTTAB(8)"FIGHT"
1310 GOSUB1790
1320 IFK=2THEN1390
1330 RN=RND(1):IFRN>.8THENTM=R:GOTO690
1340 PRINT"NOT FAST ENOUGH"
1350 PRINT"THE MONSTER DAMAGED YOUR SHIP"
1360 PRINT"YOU MUST GO BACK TO PIRATE COVE AND
1370 [153]"START OVER AGAIN."
1380 R[178]RR:[141]1860:[137]510
1390 [139]F2[178]0[167]1430
1400 [153]"YOU DEFEATED THE SEA MONSTER"
1410 [153]"YOU MAY CONTINUE ON YOUR JOURNEY."
1420 TM[178]R:[141]1860:[151]V[170]21,1:[137]690
1430 [153]"YOU CANNOT FIGHT THE MONSTER WITHOUT"
1440 [153]"A CUTLASS"
1450 [137]1360
1460 [171][171][171][171][171][143] SOUND SUB-----
1470 [151]S[170]24,15:[151]S[170]5,9:[151]S[170]4,17
1480 [151]S[170]1,6:[151]S,108:[129]T[178]1[164]1000:[130]
1490 [151]S[170]4,16:[129]T[178]1[164]25:[130]
1500 [142]
1510 [171][171][171][171][171][143] DRAW MAP-----
1520 [151]V[170]21,0
1530 [153]"LOAD"[163]7)"LISTNAVIGATION MAP"
1540 X$[178]"(null)USR(null)"
1550 Y$[178]"SGN +"
1560 Z$[178]"(null)ANDSQR"
1570 [129]I[178]1[164]5:[153][163]7);
1580 [129]J[178]1[164]5:[153]X$;:[130]:[153]
1590 [153][163]7);
1600 [129]J[178]1[164]5:[153]Y$;:[130]:[153]
1610 [153][163]7);
1620 [129]J[178]1[164]5:[153]Z$;:[130]:[153]
1630 [130]
1640 [129]I[178]1[164]25
1650 [139]L(I)[178]1[167][151]LO(I),81:[151]LO(I)[170]S,5
1660 [139]L(I)[178]2[167][151]LO(I),45:[151]LO(I)[170]S,6
1670 [130]
1680 [151]LO(R),81:[151]LO(R)[170]S,7
1690 [153]""[163]27)"(null)LIST = LAND"
1700 [153][163]27)"-LIST = WATER"
1710 [153][163]27)"SYS(null)LIST = CURRENT"
1720 [153][163]31)"LOCATION"
1730 [153][163]33)"SYSN"
1740 [153][163]33)"(null)"
1750 [153][163]31)"W-(null)-E"
1760 [153][163]33)"(null)"
1770 [153][163]33)"S"
1780 [153]"":[141]1860:[137]510
1790 [161]K$:[139]K$[178]""[167]1790
1800 [139]K$[178][199](13)[167][142]
1810 [139]K$[179][177]""[167]1790
1820 K[178]K[170]1:Y[178]Y[170]8
1830 [139]K[177]D[167]K[178]1:Y[178]81
1840 [151]V[170]3,Y:[151]V[170]5,Y:[151]V[170]7,Y
1850 [137]1790
1860 [153][163]6)"CONT[PRESS ANY KEY TO CONTINUE]"
1870 [161]K$:[139]K$[178]""[167]1870
1880 [142]
1890 [129]I[178]1[164]11:[151]53280,I
1900 [129]T[178]1[164]25:[130]:[130]:[151]53280,0:[142]
1910 [153]"INVENTORY:"
1920 [129]I[178]1[164]8:[153]I$(I):[130]
1930 [153]"":[141]1860:[151]V[170]21,1:[137]520
1940 [131] 0,0,0,1,192,0,1,192
1950 [131] 0,4,192,0,4,192,0,20
1960 [131] 192,0,20,192,0,20,193,192
1970 [131] 20,197,192,4,197,192,4,197
1980 [131] 192,1,197,192,1,193,192,240
1990 [131] 192,207,63,255,252,15,255,252
2000 [131] 3,255,252,170,187,190,42,174
2010 [131] 234,10,170,168,0,170,128,255
2020 [131]0,0,0,0,0,60,0,0
2030 [131]192,3,195,0,0,51,240,0
2040 [131]15,12,3,248,192,12,8,48
2050 [131]0,50,48,0,194,0,0,192
2060 [131]128,0,192,128,0,0,128,0
2070 [131]0,128,0,2,0,0,86,64
2080 [131]5,85,84,21,85,80,1,85
2090 [131]64,0,21,0,0,0,0,0
2100 [131]5,0,0,1,64,0,0,80
2110 [131]0,0,20,0,0,5,0,0
2120 [131]1,64,0,0,80,21,85,80
2130 [131]16,0,16,18,170,16,18,34
2140 [131]16,208,32,16,16,32,28,16
2150 [131]32,16,208,32,19,21,85,80
2160 [131]0,0,204,48,12,48,0,195
2170 [131]12,12,12,48,0,0,192,0
2180 [131]0,16,0,0,32,0,0,8
2190 [131]0,0,8,0,0,8,0,72
2200 [131]32,33,34,32,136,0,170,0
2210 [131]0,158,0,10,182,160,160,158
2220 [131]10,128,182,2,64,170,1,2
2230 [131]8,128,8,8,32,8,32,32
2240 [131]16,32,4,0,32,0,0,8
2250 [131]0,0,4,0,0,0,0,0
2260 [131] 1,84,0,4,1,64,4,0
2270 [131] 20,16,0,1,16,80,1,17
2280 [131] 0,1,64,0,65,64,0,68
2290 [131] 16,1,80,5,84,128,128,48
2300 [131] 8,8,50,0,0,192,200,32
2310 [131] 200,192,0,192,194,35,195,32
2320 [131] 3,35,0,3,3,8,3,12
2330 [131] 0,0,12,0,0,12,0,72
2340 [131] TREASURE ISLAND, SEA MONSTER'S LAIR, BLUEBEARD'S BAY
2350 [131] MERMAID'S LAGOON, CAPT. HOOK'S SWAMP, SPICE ISLAND
2360 [131] JEWEL ISLAND, SKELETON INLET, BARBARY COAST,PIRATE COVE
2370 [131] SIFT THROUGH SAND, A FEW PIECES OF EIGHT
2380 [131] SEARCH ISLAND, NOTHING OF INTEREST.
2390 [131] SEARCH OLD GALLEON, SOME SILVER JEWELRY
2400 [131] SEARCH ISLAND, EXOTIC SPICES
2410 [131] SEARCH HARBOR, A CUTLASS
2420 [131] SEARCH SWAMP, NOTHING BUT SNAKES
2430 [131] SEARCH JUNGLE, A BEAUTIFUL PARROT
2440 [131] SAIL ALONG COAST, NOTHING OF INTEREST.
2450 [131] SEARCH ALONG DOCK, NOTHING OF INTEREST.
2460 [131] SEARCH NATIVE HUTS, A KEY
2470 [131] SEARCH STREAM,NOTHING BUT ALLIGATORS
2480 [131] SEARCH ALONG CLIFFS, NOTHING OF INTEREST.
2490 [131] SEARCH WOODS, NOTHING OF INTEREST.
2500 [131] SEARCH WRECKED SHIP, SOME GEMS
2510 [131] SEARCH OLD SHIP, NOTHING BUT AN OLD COMPASS.
2520 [131] COMB BEACHES, A FEW DOUBLOONS
2530 [131] 0,1,1,0,0,1,1,1,0,1,1,1,0,1,1,1,0,1,0,1
2540 [131] 1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1
2550 [131] 1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1
2560 [131] 1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1
2570 [131] 1,0,1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,1
2580 [131] 1272,1275,1278,1281,1284
2590 [131] 1392,1395,1398,1401,1404
2600 [131] 1512,1515,1518,1521,1524
2610 [131] 1632,1635,1638,1641,1644
2620 [131] 1752,1755,1758,1761,1764